! ******** û ***************
FINISH
/CLEAR
/FILN, E65
/TITLE, 
/UNITS,SI	            	        !ùʵλ
!*******************************
DI=2000                              	! 豸ھ
TC=16                                	! Ͳ弰ͷں
HC=5*NINT(SQRT(DI/2*TC)/10)*10       	! ģͲ峤ȣͷֱ߸߶)
DN=630                          	! ӹ⾶
TN=8                      		! ӹܱں
LN=350                    		! ӹ߶  
NT=2                      		! ȷʷ
NME=30                    		! Բͷʷ
NH=20                     		! ӹܻʷ
M=1E6                     		! ӹܶ˲
PC=0.2                    		! ѹ
PAX1=-PC*DN**2/((DN+2*TN)**2-DN**2)     ! ӹܶ˲ƽغ

! ********* ǰ  ************
/PREP7 
ET,1,95                   		! 嵥Ԫ
ET,2,21                   		! 嵥Ԫ
MP,EX,1,2E5               		! ϵĵģ
MP,NUXY,1,0.3             		! ϵĲɱ
R,1,1                     		! Ԫʵ

! ********* ģ  ************
CSWPLA,11,1,0.5,1,         		! Բϵ
K,1,-DI/2,,,               		! Բһ˵
K,2,DI/2,,,                		! Բһ˵
L,1,2                      		! Բ
CSYS,0                     		! ֱϵ
K,3,KX(2)+TC,,             		! ͷںؼ
L,2,3                      		! ɷͷں
ADRAG,2, , , , , ,1        		! ɷͷںԲԲ
BLC4,DN/2-TN, ,TN,DI/4+TC+LN,       	! Ľӹܽ  
APTN,ALL                            	! 򻥷
ADELE,4,5,,1                        	! ɾ

*GET,KPMAX,KP,,NUM,MAX              	! ȡڵ
K,KPMAX+1,0,0,0                     	! һؼ
K,KPMAX+2,0,HC,0                    	! һؼ
VROTAT,ALL,,,,,,KPMAX+1,KPMAX+2,180 	! תԲͷĽӹ

ASEL,S,LOC,Y,0                      	! ѡԲͷ
*GET,KPMAX,KP,,NUM,MAX              	! ȡڵ
K,KPMAX+1,0,0,0                     	! Ͳһؼ
K,KPMAX+2,0,-HC,0                   	! Ͳһؼ
L,KPMAX+1,KPMAX+2                   	! Ͳ  
VDRAG,ALL, , , , , ,48              	! Ͳ 
LDELE,1,,,1                         	! ɾ
LDELE,48,,,1                        	! ɾ


!*************************
LSEL,S,LENGTH,,0,TC                         ! ѡȷ߶
LESIZE,ALL, , ,NT,, , , ,1                  ! 趨ȷʷ  
VSEL,S,LOC,Y,-HC,0                          ! ѡͲ
VSWEEP,ALL                                  ! ʷͲ

VSEL,S,LOC,X,0,DI                           ! ѡXĲַͷĽӹ
VSEL,U,LOC,Y,-HC,0                          ! ȥͲ                 
LOCAL,11,1,,,,,90                           ! ֲ
ASLV                                        ! ѡ
LSLA                                        ! ѡ
LSEL,R,LOC,X,DN3/2,DI                       ! ѡԲͷ
LSEL,U,LOC,X,DN3/2                          ! ȥӹ߶
LSEL,U,LOC,Z,0                              ! ȥͲ߶
LESIZE,ALL, , ,NME, , , , ,1                ! 趨Բͷʷ                 
ALLS
VSEL,U,,,7,8                                ! ȥʷ
VSWEEP,ALL                                  ! ɨʷ   

ASEL,S,,,30                                 ! ѡṹڱ
ASEL,A,,,35
ASEL,A,,,5
ASEL,A,,,20
ASEL,A,,,14
ASEL,A,,,15
ASEL,A,,,27
ASEL,A,,,28
ASEL,A,,,24
ASEL,A,,,11
CM,AREAINNER,AREA                           ! ṹڱΪ 

CSYS,0                                      ! ֱϵ
ASEL,S,LOC,Y,KY(8)                          ! ѡӹܶ
NSLA,,1                                     ! ѡӹܶϵĽڵ
CM,NMOMENT,NODE                             ! ӹܶϵĽڵ
NSEL,R,LOC,X,KX(8)                          ! ѡӹܶϵһڵ
NSEL,R,LOC,Z,KZ(8)
*GET,NMAST,NODE,,NUM,MIN                    ! ȡýڵ
TYPE,2                                      ! 趨Ԫ
E,NMAST                                     ! Ԫ
ALLS                   
FINI                                        ! ˳ǰ
!********  ********
/SOLU                                       ! 
ASEL,S,LOC,Y,-HC                            ! ѡͲ
DA,ALL,UY                                   ! Լλ
NSLA,,1                                     ! ѡڵ
NSEL,R,LOC,X,0                              ! ѡXΪ0Ľڵ
D,ALL,UX                                    ! ԼXλ
NSLA,,1                                     ! ѡڵ
NSEL,R,LOC,Z,0                              ! ѡZΪ0Ľڵ
D,ALL,UZ                                    ! ԼZλ
ASEL,S,LOC,Z,0                              ! ѡԳ
DA,ALL,SYMM                                 ! ʩӶԳԼ

! ********* ¶غɡز *************
CMSEL,S,AREAINNER                           ! ѡڱAREAINNER 
SFA,ALL,1,PRES,PC                           ! ʩѹ
ASEL,S,LOC,Y,KY(8)                          ! ѡӹܶ
SFA,ALL,1,PRES,PAX1                         ! ԽӹʩӶ˲ƽغ

CMSEL,S,NMOMENT                             ! ѡӹܶϵĽڵ
CERIG,NMAST,ALL                             ! ƽ
F,NMAST,MZ,M                                ! ʩ

ALLS                                        ! ȫѡ 
SOLVE                                       ! 
SAVE                                        ! 
FINI                                        ! ˳
! ******    ***********
/POST1                                      ! 
/GRAPHICS,FULL
PLNSOL,S,INT,,1		                    !ʾӦͼ
!****************Ӧ****************
NODE1=NODE(KX(13),KY(13),KZ(13))            ! ڽڵ
NODE2=NODE(KX(11),KY(11),KZ(11))
PATH,SET1,2                                 ! ·Ƽ·       
PPATH,1,NODE1                               ! ݽڵ㶨·
PPATH,2,NODE2                               ! ݽڵ㶨·
PRSECT                                      ! г·Ի